object fCadPaciente: TfCadPaciente
  Left = 53
  Top = 95
  BorderStyle = bsSingle
  Caption = 'Cadastro de Pacientes'
  ClientHeight = 390
  ClientWidth = 700
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 13
    Width = 33
    Height = 13
    Caption = 'C'#243'digo'
  end
  object Label2: TLabel
    Left = 72
    Top = 13
    Width = 28
    Height = 13
    Caption = 'Nome'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 57
    Width = 497
    Height = 117
    Caption = 'Dados Pessoais'
    TabOrder = 0
    object Label4: TLabel
      Left = 6
      Top = 16
      Width = 27
      Height = 13
      Caption = 'Sexo:'
    end
    object Label5: TLabel
      Left = 90
      Top = 16
      Width = 19
      Height = 13
      Caption = 'Cor:'
    end
    object Label6: TLabel
      Left = 212
      Top = 16
      Width = 43
      Height = 13
      Caption = 'Est. Civil:'
    end
    object Label7: TLabel
      Left = 7
      Top = 64
      Width = 54
      Height = 13
      Caption = 'Dta. Nasc.:'
    end
    object Label8: TLabel
      Left = 87
      Top = 64
      Width = 45
      Height = 13
      Caption = 'Categoria'
    end
    object Label9: TLabel
      Left = 316
      Top = 19
      Width = 43
      Height = 13
      Caption = 'Profiss'#227'o'
    end
    object Label21: TLabel
      Left = 199
      Top = 64
      Width = 70
      Height = 13
      Caption = 'Sub. Categoria'
    end
    object FacDBEdit3: TFacDBEdit
      Left = 90
      Top = 36
      Width = 119
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'COR'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 0
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit4: TFacDBEdit
      Left = 7
      Top = 81
      Width = 73
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'DATA_NASC'
      DataSource = DtSrc
      MaxLength = 8
      ReadOnly = True
      TabOrder = 1
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit5: TFacDBEdit
      Left = 87
      Top = 81
      Width = 105
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'CATEGORIA'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 2
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit6: TFacDBEdit
      Left = 315
      Top = 36
      Width = 174
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'PROFISSAO'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 3
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit19: TFacDBEdit
      Left = 212
      Top = 36
      Width = 101
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'EST_CIVIL'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 4
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit20: TFacDBEdit
      Left = 7
      Top = 36
      Width = 82
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'SEXO'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 5
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit21: TFacDBEdit
      Left = 199
      Top = 81
      Width = 290
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'SUB_CATEGORIA'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 6
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
  end
  object FacDBEdit1: TFacDBEdit
    Left = 8
    Top = 29
    Width = 49
    Height = 21
    TabStop = False
    AutoSelect = False
    Color = clInfoBk
    DataField = 'COD_PACIENTE'
    DataSource = DtSrc
    ReadOnly = True
    TabOrder = 1
    CaseMode = cmNormal
    ColorOnFocus = clYellow
    EnterLikeTab = True
  end
  object FacDBEdit2: TFacDBEdit
    Left = 64
    Top = 29
    Width = 441
    Height = 21
    TabStop = False
    AutoSelect = False
    Color = clInfoBk
    DataField = 'NOME'
    DataSource = DtSrc
    ReadOnly = True
    TabOrder = 2
    CaseMode = cmNormal
    ColorOnFocus = clYellow
    EnterLikeTab = True
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 178
    Width = 497
    Height = 146
    Caption = 'Endere'#231'o'
    TabOrder = 3
    object Label14: TLabel
      Left = 223
      Top = 57
      Width = 30
      Height = 13
      Caption = 'Bairro:'
    end
    object Label11: TLabel
      Left = 53
      Top = 15
      Width = 23
      Height = 13
      Caption = 'Rua:'
    end
    object Label12: TLabel
      Left = 382
      Top = 15
      Width = 26
      Height = 13
      Caption = 'num.:'
    end
    object Label13: TLabel
      Left = 52
      Top = 57
      Width = 67
      Height = 13
      Caption = 'Complemento:'
    end
    object Label15: TLabel
      Left = 300
      Top = 100
      Width = 17
      Height = 13
      Caption = 'UF:'
    end
    object Label16: TLabel
      Left = 356
      Top = 100
      Width = 24
      Height = 13
      Caption = 'CEP:'
    end
    object Label3: TLabel
      Left = 52
      Top = 100
      Width = 33
      Height = 13
      Caption = 'Cidade'
    end
    object FacDBEdit7: TFacDBEdit
      Left = 53
      Top = 31
      Width = 328
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'RUA'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 0
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit8: TFacDBEdit
      Left = 382
      Top = 31
      Width = 63
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'NR'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 1
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit9: TFacDBEdit
      Left = 52
      Top = 74
      Width = 167
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'COMPLEMENTO'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 2
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit10: TFacDBEdit
      Left = 221
      Top = 74
      Width = 224
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'BAIRRO'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 3
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit11: TFacDBEdit
      Left = 52
      Top = 117
      Width = 242
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'CIDADE'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 4
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit12: TFacDBEdit
      Left = 356
      Top = 117
      Width = 89
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'CEP'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 5
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit18: TFacDBEdit
      Left = 298
      Top = 117
      Width = 54
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'UF'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 6
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
  end
  object Panel4: TPanel
    Left = 507
    Top = 14
    Width = 186
    Height = 159
    Color = clAqua
    TabOrder = 4
    object Panel1: TPanel
      Left = 5
      Top = 4
      Width = 177
      Height = 150
      BevelOuter = bvLowered
      TabOrder = 0
      object Label10: TLabel
        Left = 23
        Top = 101
        Width = 32
        Height = 13
        Caption = 'Celular'
      end
      object Label17: TLabel
        Left = 23
        Top = 57
        Width = 17
        Height = 13
        Caption = 'Fax'
      end
      object Label18: TLabel
        Left = 23
        Top = 12
        Width = 42
        Height = 13
        Caption = 'Telefone'
      end
      object FacDBEdit15: TFacDBEdit
        Left = 23
        Top = 116
        Width = 130
        Height = 21
        TabStop = False
        AutoSelect = False
        Color = clInfoBk
        DataField = 'FONE2'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object FacDBEdit14: TFacDBEdit
        Left = 23
        Top = 73
        Width = 130
        Height = 21
        TabStop = False
        AutoSelect = False
        Color = clInfoBk
        DataField = 'FONE1'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
      object FacDBEdit13: TFacDBEdit
        Left = 23
        Top = 27
        Width = 130
        Height = 21
        TabStop = False
        AutoSelect = False
        Color = clInfoBk
        DataField = 'FONE'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        CaseMode = cmUpperCase
        ColorOnFocus = clAqua
        EnterLikeTab = True
      end
    end
  end
  object GroupBox3: TGroupBox
    Left = 508
    Top = 178
    Width = 187
    Height = 146
    Caption = 'Documentos'
    TabOrder = 5
    object Label19: TLabel
      Left = 9
      Top = 26
      Width = 17
      Height = 13
      Caption = 'CIC'
    end
    object Label20: TLabel
      Left = 9
      Top = 77
      Width = 16
      Height = 13
      Caption = 'RG'
    end
    object FacDBEdit16: TFacDBEdit
      Left = 8
      Top = 43
      Width = 167
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'CIC'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 0
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
    object FacDBEdit17: TFacDBEdit
      Left = 8
      Top = 94
      Width = 167
      Height = 21
      TabStop = False
      AutoSelect = False
      Color = clInfoBk
      DataField = 'RG'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 1
      CaseMode = cmNormal
      ColorOnFocus = clYellow
      EnterLikeTab = True
    end
  end
  object btnSair: TBitBtn
    Left = 307
    Top = 340
    Width = 85
    Height = 33
    Caption = '&Sair'
    TabOrder = 6
    OnClick = btnSairClick
    Glyph.Data = {
      0E060000424D0E06000000000000360000002800000016000000160000000100
      180000000000D8050000C30E0000C30E00000000000000000000FFFFFFF2F2F2
      F2F2F2D3D3D3E8E8E8F5F5F5DBDBDBDDDDDDECECECEEEEEED3D3D3EBEBEBF7F7
      F723230F4F4F00B2B2A8E9E9E9D6D6D6EBEBEBFAFAFAFFFFFFFFFFFF0000FFFF
      FFF0F0F0D8D8D8EDEDEDEAEAEADFDFDFDCDCDCF4F4F4E6E6E6D7D7D7F2F2F2E7
      E7E7DDDDDD4C4C0CFFFF006868119B9B9BF4F4F4E7E7E7DBDBDBE6E6E6FFFFFF
      0000D3D3D3E4E4E4EFEFEFE4E4E4D8D8D8EDEDEDF3F3F3D3D3D3E7E7E7F1F1F1
      DFDFDFDBDBDBECECEC4D4D0DFFFF008D8D00515105878781DFDFDFEDEDEDECEC
      ECD3D3D30000E6E6E6EDEDEDE1E1E1DBDBDBF5F5F5E3E3E3DCDCDCEAEAEAEAEA
      EAE0E0E0DBDBDBF6F6F6E3E3E34D4D0DFFFF008F8F007F7F0056560DA1A1A1E2
      E2E2DBDBDBF3F3F300004B4B4B5050504E4E4E4848484F4F4F5050504A4A4A4C
      4C4C444444F0F0F0F3F3F3D3D3D3E7E7E74E4E0EFFFF008F8F007F7F007D7D00
      4C4C0D3232324848484E4E4E0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBF4A4A4ADFDFDFDFDFDFE9E9E9EBEBEB4D4D0DFFFF008F8F007F7F
      007F7F00474700636363BFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFB0B0B0BFBFBF4040403F3F3F3737373737373F3F3F434303FFFF008F
      8F007F7F007F7F00474700636363BFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBF3D3D3D8F8F8F3E3E3E7F7F7F7F7F7F7F7F7F7F7F7F474707
      FFFF008F8F007F7F007F7F00474700636363BFBFBFBFBFBF0000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBF3C3C304D4D141515137F7F7F7F7F7F7F7F7F7F7F
      7F474707FFFF008D8D007777007D7D00474700636363BFBFBFBFBFBF0000BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF4646309A9A004545046161617F7F7F7F
      7F7F7F7F7F474707FFFF005F5F08171717676700474700636363BFBFBFBFBFBF
      0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF474727EDED0092920045450E
      6363637F7F7F7F7F7F474707FFFF004747276B6B6B676700474700636363BFBF
      BFBFBFBF0000AEAEAE57574531310A272700272700272700424200FFFF00F9F9
      009898004242006363637F7F7F474707FFFF007E7E002727006E6E0047470063
      6363BFBFBFBFBFBF00008989898C8C13CFCF01CFCF00CFCF00CFCF00D5D500FF
      FF00FFFF00EDED0098980045450E616161474707FFFF008F8F007F7F007F7F00
      474700636363BFBFBFBFBFBF0000898989A1A113FEFE2CFFFFAFFFFFAFFFFFAF
      FFFFAFFFFFAFFFFFDBFFFF6DE3E3004B4B095B5B5B474707FFFF008F8F007F7F
      007F7F00474700636363BFBFBFBFBFBF0000A7A7A76F6F4879790C7A7A0A7A7A
      0A7A7A0A8A8A09FFFF3EFFFF70E4E4005F5F005858587F7F7F474707FFFF008F
      8F007F7F007F7F00474700636363BFBFBFBFBFBF0000BFBFBFB1B1B1A9A9A9A9
      A9A9A9A9A9A9A9A94C4C2CFFFF0DE6E6075959085858537F7F7F7F7F7F474707
      FFFF008F8F007F7F007F7F00474700636363BFBFBFBFBFBF0000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBF505030E3E3005F5F035757577F7F7F7F7F7F7F7F
      7F474707FFFF008F8F007F7F007F7F00474700636363BFBFBFBFBFBF0000BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF4242356E6E2521211B7F7F7F7F7F7F7F
      7F7F7F7F7F5E5E52999906D5D5008787007F7F00474700636363BFBFBFBFBFBF
      0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7070708888884444447F7F7F
      7F7F7F7F7F7F7F7F7F7F7F7F565656999906DBDB00898900474700636363BFBF
      BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF4444
      447F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F5E5E529B9B03D7D7004C4C0076
      7676BFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBF4141415656565656565656565656565656565656565656562E2E2E888807
      65650C888888BFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBF9696968989898989898989898989898989898989898989898989
      89898989898989B1B1B1BFBFBFBFBFBF0000}
  end
  object SQLClientDataSet1: TSQLClientDataSet
    CommandText = 'select * from PACIENTE '#13#10'where COD_PACIENTE =:pcod'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    DBConnection = DM.scSge
    Left = 384
    object SQLClientDataSet1COD_PACIENTE: TIntegerField
      FieldName = 'COD_PACIENTE'
      Required = True
    end
    object SQLClientDataSet1NOME: TStringField
      FieldName = 'NOME'
      Size = 60
    end
    object SQLClientDataSet1SEXO: TStringField
      FieldName = 'SEXO'
      Size = 10
    end
    object SQLClientDataSet1COR: TStringField
      FieldName = 'COR'
      Size = 15
    end
    object SQLClientDataSet1EST_CIVIL: TStringField
      FieldName = 'EST_CIVIL'
    end
    object SQLClientDataSet1DATA_NASC: TDateField
      FieldName = 'DATA_NASC'
    end
    object SQLClientDataSet1CATEGORIA: TStringField
      FieldName = 'CATEGORIA'
      Size = 30
    end
    object SQLClientDataSet1PROFISSAO: TStringField
      FieldName = 'PROFISSAO'
      Size = 40
    end
    object SQLClientDataSet1RUA: TStringField
      FieldName = 'RUA'
      Size = 60
    end
    object SQLClientDataSet1NR: TStringField
      FieldName = 'NR'
      Size = 8
    end
    object SQLClientDataSet1COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object SQLClientDataSet1BAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 40
    end
    object SQLClientDataSet1CIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 50
    end
    object SQLClientDataSet1UF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object SQLClientDataSet1CEP: TStringField
      FieldName = 'CEP'
      Size = 10
    end
    object SQLClientDataSet1FONE: TStringField
      FieldName = 'FONE'
      Size = 13
    end
    object SQLClientDataSet1FONE1: TStringField
      FieldName = 'FONE1'
      Size = 13
    end
    object SQLClientDataSet1FONE2: TStringField
      FieldName = 'FONE2'
      Size = 13
    end
    object SQLClientDataSet1CIC: TStringField
      FieldName = 'CIC'
      Size = 14
    end
    object SQLClientDataSet1RG: TStringField
      FieldName = 'RG'
      Size = 15
    end
    object SQLClientDataSet1HISTORICO: TMemoField
      FieldName = 'HISTORICO'
      BlobType = ftMemo
      Size = 1
    end
    object SQLClientDataSet1SUB_CATEGORIA: TStringField
      FieldName = 'SUB_CATEGORIA'
      Size = 100
    end
  end
  object DtSrc: TDataSource
    DataSet = SQLClientDataSet1
    Left = 419
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 454
  end
end
